home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d18
/
vis082s.arc
/
UPGRADE.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1991-04-17
|
761b
|
37 lines
Program Upgrade;
Uses Dos,Crt,GenTypes,GenSubs,ConfigRt;
Var Urec:Userrec;
Fn:File of Userrec;
Total:Integer;
C:Char;
Conferences:Array [1..5] of Boolean;
Begin
ClrScr;
WriteLn('Upgrade program for ViSiON BBS ver. 1.20');
Total:=0;
WriteLn;
WriteLn('Press any key to start conversions');
C:=Readkey;
ReadConfig;
Assign(Fn,ConfigSet.ForumDi+'Users');
Reset(Fn);
While Not Eof(Fn) Do
Begin
Read(Fn,Urec);
Urec.MenuHighlight:=14;
if total>0 then
WriteLn(Total,']',urec.handle:5);
Seek(Fn,Total);
Write(Fn,Urec);
Inc(Total);
End;
Close(Fn);
WriteLn(Total,' users were upgraded.');
WriteLn;
WriteLn('Press any key to continue.');
C:=ReadKey;
End.